home *** CD-ROM | disk | FTP | other *** search
/ Developer Helper 1: Phil & Dave's Excellent CD / Excellent CD HFS.raw / HyperCard / HyperCard 1.2.2 International / HyperCard British (B-1.2.2) / Stacks / Home / card_5061.txt < prev    next >
Text File  |  1988-11-08  |  7KB  |  268 lines
  1. -- card: 5061 from stack: in
  2. -- bmap block id: 5553
  3. -- flags: 4000
  4. -- background id: 4252
  5. -- name: User Preferences
  6. ----- HyperTalk script -----
  7. on openCard
  8.   setUserLevel the userLevel
  9.   if card field "User Name" is empty
  10.   then click at the loc of card field "User Name"
  11. end openCard
  12.  
  13. on setUserLevel whatLevel
  14.   set userLevel to whatLevel
  15.   if the userLevel is whatLevel then
  16.     put the userLevel into card field "User Level"
  17.     set hilite of button "Browsing" to the userLevel = 1
  18.     set hilite of button "Typing" to the userLevel = 2
  19.     set hilite of button "Painting" to the userLevel = 3
  20.     set hilite of button "Authoring" to the userLevel = 4
  21.     set hilite of button "Scripting" to the userLevel = 5
  22.     set visible of button "Text Arrows" to the userlevel >= 2
  23.     set visible of button "Power Keys" to the userLevel >= 3
  24.     set visible of button "Blind Typing" to the userLevel = 5
  25.     set hilite of button "Text Arrows" to the textArrows
  26.     set hilite of button "Power Keys" to the powerKeys
  27.     set hilite of button "Blind Typing" to the blindTyping
  28.   else
  29.     set hilite of the target to false
  30.   end if
  31. end setUserLevel
  32. on closeCard
  33.   hide card field "Local Help"
  34. end closeCard
  35.  
  36.  
  37. -- part 1 (button)
  38. -- low flags: 00
  39. -- high flags: A006
  40. -- rect: left=95 top=145 right=166 bottom=223
  41. -- title width / last selected line: 0
  42. -- icon id / first selected line: 0 / 0
  43. -- text alignment: 1
  44. -- font id: 0
  45. -- text size: 12
  46. -- style flags: 0
  47. -- line height: 16
  48. -- part name: Browsing
  49. ----- HyperTalk script -----
  50. on mouseUp
  51.   setUserLevel 1
  52. end mouseUp
  53.  
  54.  
  55.  
  56. -- part 2 (button)
  57. -- low flags: 00
  58. -- high flags: A006
  59. -- rect: left=95 top=187 right=208 bottom=223
  60. -- title width / last selected line: 0
  61. -- icon id / first selected line: 0 / 0
  62. -- text alignment: 1
  63. -- font id: 0
  64. -- text size: 12
  65. -- style flags: 0
  66. -- line height: 16
  67. -- part name: Painting
  68. ----- HyperTalk script -----
  69. on mouseUp
  70.   setUserLevel 3
  71. end mouseUp
  72.  
  73.  
  74.  
  75. -- part 3 (button)
  76. -- low flags: 00
  77. -- high flags: A006
  78. -- rect: left=95 top=208 right=229 bottom=223
  79. -- title width / last selected line: 0
  80. -- icon id / first selected line: 0 / 0
  81. -- text alignment: 1
  82. -- font id: 0
  83. -- text size: 12
  84. -- style flags: 0
  85. -- line height: 16
  86. -- part name: Authoring
  87. ----- HyperTalk script -----
  88. on mouseUp
  89.   setUserLevel 4
  90. end mouseUp
  91.  
  92.  
  93.  
  94. -- part 4 (button)
  95. -- low flags: 00
  96. -- high flags: A006
  97. -- rect: left=95 top=229 right=250 bottom=223
  98. -- title width / last selected line: 0
  99. -- icon id / first selected line: 0 / 0
  100. -- text alignment: 1
  101. -- font id: 0
  102. -- text size: 12
  103. -- style flags: 0
  104. -- line height: 16
  105. -- part name: Scripting
  106. ----- HyperTalk script -----
  107. on mouseUp
  108.   setUserLevel 5
  109. end mouseUp
  110.  
  111.  
  112.  
  113. -- part 5 (button)
  114. -- low flags: 80
  115. -- high flags: E005
  116. -- rect: left=211 top=187 right=208 bottom=314
  117. -- title width / last selected line: 0
  118. -- icon id / first selected line: 0 / 0
  119. -- text alignment: 1
  120. -- font id: 0
  121. -- text size: 12
  122. -- style flags: 0
  123. -- line height: 16
  124. -- part name: Power Keys
  125. ----- HyperTalk script -----
  126. on mouseUp
  127.   set powerKeys to the hilite of button "Power Keys"
  128. end mouseUp
  129.  
  130.  
  131.  
  132. -- part 7 (field)
  133. -- low flags: 00
  134. -- high flags: 0000
  135. -- rect: left=168 top=91 right=111 bottom=392
  136. -- title width / last selected line: 0
  137. -- icon id / first selected line: 0 / 0
  138. -- text alignment: 0
  139. -- font id: 3
  140. -- text size: 14
  141. -- style flags: 0
  142. -- line height: 18
  143. -- part name: User Name
  144. ----- HyperTalk script -----
  145. on closeField
  146.   global userName
  147.   put card field "User Name" into userName
  148. end closeField
  149.  
  150.  
  151.  
  152. -- part 8 (button)
  153. -- low flags: 00
  154. -- high flags: E006
  155. -- rect: left=95 top=166 right=187 bottom=223
  156. -- title width / last selected line: 0
  157. -- icon id / first selected line: 0 / 0
  158. -- text alignment: 1
  159. -- font id: 0
  160. -- text size: 12
  161. -- style flags: 0
  162. -- line height: 16
  163. -- part name: Typing
  164. ----- HyperTalk script -----
  165. on mouseUp
  166.   setUserLevel 2
  167. end mouseUp
  168.  
  169.  
  170.  
  171. -- part 9 (field)
  172. -- low flags: 81
  173. -- high flags: 0000
  174. -- rect: left=173 top=125 right=144 bottom=198
  175. -- title width / last selected line: 0
  176. -- icon id / first selected line: 0 / 0
  177. -- text alignment: 0
  178. -- font id: 3
  179. -- text size: 12
  180. -- style flags: 0
  181. -- line height: 16
  182. -- part name: User Level
  183.  
  184.  
  185. -- part 13 (button)
  186. -- low flags: 80
  187. -- high flags: E005
  188. -- rect: left=211 top=229 right=250 bottom=314
  189. -- title width / last selected line: 0
  190. -- icon id / first selected line: 0 / 0
  191. -- text alignment: 1
  192. -- font id: 0
  193. -- text size: 12
  194. -- style flags: 0
  195. -- line height: 16
  196. -- part name: Blind Typing
  197. ----- HyperTalk script -----
  198. on mouseUp
  199.   set blindTyping to the hilite of button "Blind Typing"
  200. end mouseUp
  201.  
  202.  
  203.  
  204. -- part 14 (button)
  205. -- low flags: 00
  206. -- high flags: A005
  207. -- rect: left=211 top=166 right=187 bottom=314
  208. -- title width / last selected line: 0
  209. -- icon id / first selected line: 0 / 0
  210. -- text alignment: 1
  211. -- font id: 0
  212. -- text size: 12
  213. -- style flags: 0
  214. -- line height: 16
  215. -- part name: Text Arrows
  216. ----- HyperTalk script -----
  217. on mouseUp
  218.   set textArrows to the hilite of button "Text Arrows"
  219. end mouseUp
  220.  
  221.  
  222.  
  223. -- part 15 (field)
  224. -- low flags: 81
  225. -- high flags: 6007
  226. -- rect: left=18 top=62 right=298 bottom=487
  227. -- title width / last selected line: 0
  228. -- icon id / first selected line: 0 / 0
  229. -- text alignment: 0
  230. -- font id: 3
  231. -- text size: 12
  232. -- style flags: 0
  233. -- line height: 16
  234. -- part name: Local Help
  235. ----- HyperTalk script -----
  236. on mouseUp
  237.   hide card field id 15
  238. end mouseUp
  239.  
  240.  
  241.  
  242. -- part contents for background part 6
  243. ----- text -----
  244. User Preferences
  245.  
  246. -- part contents for card part 9
  247. ----- text -----
  248. 2
  249.  
  250. -- part contents for card part 15
  251. ----- text -----
  252. The Preferences card lets you tell HyperCard what level of functionality you want.  Five user levels are available:
  253.  
  254. 1. BROWSING     Navigation based on menus and buttons .
  255. 2. TYPING          Adds text editing (type/cut/copy/paste).
  256. 3. PAINTING       Adds the painting tools.
  257. 4. AUTHORING    Adds creating buttons, fields and simple links.
  258. 5. SCRIPTING     Adds scripting with the HyperTalk language.
  259.  
  260. For more information on these or the following subjects, see the Help stack.
  261.  
  262. ‚Ä¢ Clicking the "Text Arrows" button on this card allows a user to navigate in a text field using the four arrow keys of the keyboard.   You can click on "Text Arrows" when at user level 2,3,4 or 5. 
  263. ‚Ä¢ A button for selecting "Power Keys" appears on this card if the user has selected level 3,4 or 5.  "Power Keys" provide keyboard short cuts for Paint functions (e.g. typing M for multiple drawing...).  Clicking this check box is the same as choosing "Power Keys" in the "Options" menu.  
  264. ‚Ä¢ A button for selecting "Blind Typing" is available only for user-level 5.  It allows you to type a message in the message box while it is hidden.  
  265. ‚Ä¢ The user level can be set by using the HyperTalk command "set userlevel to 2".  Typing this in the message box sets the user level to Typing mode. 
  266. ‚Ä¢ The three path cards in the Home stack are only accessible when user-level is set to 5.
  267.  
  268.